home *** CD-ROM | disk | FTP | other *** search
/ Aminet 44 / Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso / Aminet / game / misc / CCGames.lha / KINEMA.BAS < prev    next >
BASIC Source File  |  1980-01-01  |  1KB  |  42 lines
  1. 1 RANDOMIZE
  2. 5 PRINT CHR$(26):WIDTH 80
  3. 10 PRINT TAB(33);"KINEMA":PRINT
  4. 20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
  5. 30 PRINT: PRINT: PRINT
  6. 100 PRINT
  7. 105 PRINT
  8. 106 Q=0
  9. 110 V=5+INT(35*RND(1))
  10. 111 PRINT "A BALL IS THROWN UPWARDS AT";V;"METERS PER SECOND."
  11. 112 PRINT
  12. 115 A=.05*V^2
  13. 116 PRINT "HOW HIGH WILL IT GO (IN METERS)";
  14. 117 GOSUB 500
  15. 120 A=V/5
  16. 122 PRINT "HOW LONG UNTIL IT RETURNS (IN SECONDS)";
  17. 124 GOSUB 500
  18. 130 T=1+INT(2*V*RND(1))/10
  19. 132 A=V-10*T
  20. 134 PRINT "WHAT WILL ITS VELOCITY BE AFTER";T;"SECONDS";
  21. 136 GOSUB 500
  22. 140 PRINT
  23. 145 PRINT "YOU GOT ";
  24. 150 IF Q=1 THEN PRINT "ONE "; ELSE IF Q=2 THEN PRINT "TWO "; ELSE IF Q=3 THEN
  25.     PRINT "THREE "; ELSE PRINT "NONE ";
  26. 152 PRINT "OUT OF THREE CORRECT.":PRINT
  27. 155 PRINT:LINE INPUT "DO YOU WANT TO TRY AGAIN? ";ANS$
  28. 156 IF LEFT$(ANS$,1)="N" THEN RUN "MENU"
  29. 160 IF Q<2 THEN 100
  30. 170 PRINT "  NOT BAD."
  31. 180 GOTO 100
  32. 500 INPUT G
  33. 502 IF ABS((G-A)/A)<.15 THEN 510
  34. 504 PRINT "NOT EVEN CLOSE...."
  35. 506 GOTO 512
  36. 510 PRINT "CLOSE ENOUGH."
  37. 511 Q=Q+1
  38. 512 PRINT "CORRECT ANSWER IS ";A
  39. 520 PRINT
  40. 530 RETURN
  41. 999 RUN "MENU"
  42.